; * lisp/replace.el (occur-1): Remove old fringe arrow.

diff --git a/lisp/replace.el b/lisp/replace.el
index 54d652b2ed82f6cad117d44e0dcee35dfafe9b5c..ee46286a75fb9484fc331d181dee994058fdc58f 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1898,6 +1898,7 @@ See also `multi-occur'."
       ;; Make the default-directory of the *Occur* buffer match that of
       ;; the buffer where the occurrences come from
       (setq default-directory source-buffer-default-directory)
+      (setq overlay-arrow-position nil)
       (if (stringp nlines)
          (fundamental-mode) ;; This is for collect operation.
        (occur-mode))